home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / varie / schrbkrs.lha / Schreibkurs / Src / Schreibkurs.original < prev   
Text File  |  1996-11-08  |  7KB  |  294 lines
  1. Vorbereitungen:
  2.   CLEAR,40000&,1024
  3.   SCREEN 1,640,256,3,2
  4.   WINDOW 2,"Schreibkurs",,31,1
  5.   PALETTE 0,0,.1,.5
  6.   PALETTE 1,1,1,1
  7.   DIM w$(35)
  8.   DIM Einl$(20)
  9.   Start:    
  10.       CLS
  11.       LOCATE 9,1:COLOR 3,0
  12.       PRINT"                  S C H R E I B K U R S  Zehnfinger-System"
  13.       PRINT
  14.       PRINT"                               Version 1.0"
  15.       PRINT
  16.       PRINT"                                    by"
  17.       PRINT
  18.       PRINT"                             Andreas von Gunten"
  19.       PRINT
  20.       PRINT"                                   1989"
  21.       COLOR 6,0
  22.       LINE (100,50)-(520,150),,b
  23.       COLOR 1,0
  24.       
  25.   MENU 1,0,1,"Auswahl"
  26.   MENU 1,1,1,"Einführung"
  27.   MENU 1,2,1,"Tastaturhilfe"
  28.   MENU 1,3,1,"Abbruch"
  29.   MENU 2,0,1,"Schreibkurs"
  30.   MENU 2,1,1,"1. Lektion"
  31.   MENU 2,2,1,"2. Lektion"
  32.   MENU 2,3,1,"3. Lektion"
  33.   MENU 2,4,1,"4. Lektion"
  34.   MENU 2,5,1,"5. Lektion"
  35.   MENU 2,6,1,"6. Lektion"
  36.   MENU 2,7,1,"7. Lektion"
  37.   MENU 2,8,1,"8. Lektion"
  38.  
  39.   MENU 3,0,1,"Texte"
  40.   MENU 3,1,1,"Text 1"
  41.   MENU 3,2,1,"Text 2"
  42.   MENU 3,3,1,"Text 3"
  43.   MENU 3,4,1,"Text 4"
  44.   MENU 3,5,1,"Text 5"
  45.   MENU 3,6,1,"Text 6"
  46.   MENU 3,7,1,"Text 7"
  47.   MENU 3,8,1,"Text 8"
  48.   MENU 4,0,0,""
  49.   
  50.   ON MENU GOSUB Menukontrolle
  51.   MENU ON
  52.  
  53. Warten:
  54.   GOTO Warten
  55.   
  56. Menukontrolle:
  57.   Men=MENU(0) : menpunkt=MENU(1)
  58.   IF Men=1 THEN
  59.     IF menpunkt=1 THEN GOSUB Einfuehrung
  60.     IF menpunkt=2 THEN GOSUB Tastaturhilfe
  61.     IF menpunkt=3 THEN GOSUB Abbruch
  62.   END IF
  63.   IF Men=2 THEN
  64.     IF menpunkt=1 THEN OPEN "Lekt1" FOR INPUT AS #3
  65.     IF menpunkt=2 THEN OPEN "Lekt2" FOR INPUT AS #3
  66.     IF menpunkt=3 THEN OPEN "Lekt3" FOR INPUT AS #3
  67.     IF menpunkt=4 THEN OPEN "Lekt4" FOR INPUT AS #3
  68.     IF menpunkt=5 THEN OPEN "Lekt5" FOR INPUT AS #3
  69.     IF menpunkt=6 THEN OPEN "Lekt6" FOR INPUT AS #3
  70.     IF menpunkt=7 THEN OPEN "Lekt7" FOR INPUT AS #3
  71.     IF menpunkt=8 THEN OPEN "Lekt8" FOR INPUT AS #3
  72.  
  73.   GOSUB Kapitel
  74.   END IF
  75.   IF Men=3 THEN
  76.     IF menpunkt=1 THEN OPEN "I",#3,"Text1"
  77.     IF menpunkt=2 THEN OPEN "I",#3,"Text2"
  78.     IF menpunkt=3 THEN OPEN "I",#3,"Text3"
  79.     IF menpunkt=4 THEN OPEN "I",#3,"Text4"
  80.     IF menpunkt=5 THEN OPEN "I",#3,"Text5"
  81.     IF menpunkt=6 THEN OPEN "I",#3,"Text6"
  82.     IF menpunkt=7 THEN OPEN "I",#3,"Text7"
  83.     IF menpunkt=8 THEN OPEN "I",#3,"Text8"
  84.     
  85.    GOSUB Texte
  86.    END IF
  87.   RETURN  
  88.  
  89.  Einfuehrung:
  90.     OPEN"I",#2,"Text"
  91.     CLS
  92.     Lesen:
  93.       IF EOF(2)THEN Fertig
  94.       PRINT (INPUT$(1,#2));
  95.       GOTO Lesen
  96.       
  97.     Fertig:
  98.     CALL Warte
  99.     CLS
  100.     CLOSE 2
  101.     RETURN
  102.    
  103.  Tastaturhilfe:   
  104.     
  105.   WINDOW 3,"Tastaturhilfe",(10,80)-(600,240),31,1
  106.   PALETTE 4,.1,.8,1
  107.   PALETTE 7,1,1,.13
  108.   LOCATE 2,10
  109.   COLOR 2,0 : PRINT "kleiner Finger";
  110.   COLOR 3,0 : PRINT "    Ringfinger";
  111.   COLOR 4,0 : PRINT "    Mittelfinger";
  112.   COLOR 5,0 : PRINT "    Zeigefinger"
  113.   COLOR 1,0
  114.   LOCATE 4,14
  115.   COLOR 2,0: PRINT "1   2";
  116.   COLOR 3,0: PRINT "   3";
  117.   COLOR 4,0: PRINT "   4";
  118.   COLOR 5,0: PRINT "   5   6   7   8";
  119.   COLOR 4,0: PRINT "   9";
  120.   COLOR 3,0: PRINT "   0";
  121.   COLOR 2,0: PRINT "   '"
  122.   LOCATE 6,15
  123.   PRINT "q";
  124.   COLOR 3,0: PRINT "   w";
  125.   COLOR 4,0: PRINT "   e";
  126.   COLOR 5,0: PRINT "   r   t   z   u";
  127.   COLOR 4,0: PRINT "   i";
  128.   COLOR 3,0: PRINT "   o";
  129.   COLOR 2,0: PRINT "   p   ü";
  130.   LOCATE 8,16
  131.   PRINT "a";
  132.   COLOR 3,0: PRINT "   s";
  133.   COLOR 4,0: PRINT "   d";
  134.   COLOR 5,0: PRINT "   f   g   h   j";
  135.   COLOR 4,0: PRINT "   k";
  136.   COLOR 3,0: PRINT "   l";
  137.   COLOR 2,0: PRINT "   ö   ä";
  138.   LOCATE 10,17
  139.   PRINT "y";
  140.   COLOR 3,0: PRINT "   x";
  141.   COLOR 4,0: PRINT "   c";
  142.   COLOR 5,0: PRINT "   v   b   n   m";
  143.   COLOR 4,0: PRINT "   ,";
  144.   COLOR 3,0: PRINT "   .";
  145.   COLOR 2,0: PRINT "   -"
  146.   LOCATE 15,1
  147.   COLOR 6,0
  148.   PRINT "Die Leertaste wird mit dem Daumen angeschlagen !"
  149.   COLOR 7,0
  150.   PRINT "Die Grossschreibtaste wird mit dem freien kleinen Finger angeschlagen !"
  151.   COLOR 1,0
  152.   PRINT "Die Eingabetaste wird mit dem kleinen Finger angeschlagen !"
  153.   PRINT
  154.   PRINT "Auf Tastendruck Rückkehr zur Arbeit"
  155.   
  156.   FOR x = 97 TO 417 STEP 32
  157.     LINE (x,22)-((x+20),32),,b
  158.     LINE ((x+8),39)-((x+28),49),,b
  159.     LINE ((x+16),55)-((x+36),65),,b
  160.     LINE ((x+23),70)-((x+43),80),,b        
  161.   NEXT x
  162.     LINE (80,70)-(115,80),7,bf
  163.     LINE (437,70)-(490,80),7,bf
  164.     LINE (140,85)-(400,95),6,bf
  165.     LINE (460,39)-(490,65),,bf
  166.  
  167. CALL Warte  
  168. WINDOW CLOSE 3
  169. RETURN
  170.  
  171.  
  172.     
  173.  Abbruch:
  174.      PRINT "Ende"
  175.      WINDOW CLOSE 2
  176.      SCREEN CLOSE 1
  177.      SYSTEM
  178.      END
  179.      
  180.  Texte:
  181.      CLS
  182.      j=1
  183.      WHILE NOT EOF(3)
  184.        LINE INPUT #3,Einl$(j)
  185.        PRINT Einl$(j)
  186.        j=j+1
  187.        WEND
  188.      LOCATE 16,1
  189.      Zeit$=TIME$
  190.      Anzahl=0
  191.      Fehler=0
  192.      FOR b=1 TO (j-1)
  193.        l = LEN(Einl$(b))
  194.          FOR z= 1 TO l
  195.            Eing$ = INPUT$(1)
  196.            IF Eing$ = MID$(Einl$(b),z,1) THEN
  197.            PRINT Eing$;
  198.          ELSE
  199.            BEEP
  200.            z=z-1
  201.            Fehler = Fehler + 1
  202.          END IF
  203.        NEXT z
  204.      Anzahl = Anzahl + l
  205.      LOCATE (16+b),1
  206.      NEXT b
  207.   Endzeit$=TIME$
  208.   CLS   
  209.   CLOSE 3
  210.   GOSUB Auswertung
  211.   RETURN
  212.     
  213. Auswertung:
  214.   m1=60*VAL(MID$(Zeit$,4,2))
  215.   s1=VAL(MID$(Zeit$,7,2))
  216.   m2=60*VAL(MID$(Endzeit$,4,2))
  217.   s2=VAL(MID$(Endzeit$,7,2))
  218.     IF m2<m1 THEN m2=m2+3600
  219.   ti=(m2+s2)-(m1+s1)
  220.   m = FIX(ti/60)
  221.   s = ti - (m*60) 
  222.   geschw = Anzahl/ti*60
  223.   COLOR 3,0
  224.   LOCATE 12,10
  225.   PRINT "A u s w e r t u n g"
  226.   LOCATE 13,10
  227.   PRINT "*******************"
  228.   LOCATE 16,10
  229.   PRINT "Sie kamen auf ";Anzahl;" Anschläge"
  230.   LOCATE 18,10
  231.   PRINT "in ";m;" Minuten und ";s; " Sekunden !"
  232.   LOCATE 20,10
  233.   PRINT "Das ergibt ";geschw;" Anschläge pro Minute !"
  234.   LOCATE 22,10
  235.   PRINT "Sie hatten ";Fehler;" Fehler !"
  236.   COLOR 1,0
  237.   RETURN
  238.     
  239.  
  240. SUB Warte STATIC
  241.   Schleife:
  242.   a$=INKEY$
  243.   IF a$="" THEN Schleife
  244.   END SUB
  245.   
  246. Kapitel:
  247.     CLS
  248.     FOR a = 1 TO 34
  249.       Fehler = 0
  250.       LINE INPUT #3,w$(a)
  251.       LOCATE 4,4
  252.       PRINT w$(a)
  253.       LOCATE 6,4
  254.         FOR t =1 TO 59          
  255.           b$ = INPUT$(1)
  256.           IF b$ = MID$(w$(a),t,1) THEN 
  257.             PRINT b$;
  258.             ELSE
  259.               BEEP
  260.               Fehler=Fehler+1
  261.               t=t-1
  262.           END IF
  263.         NEXT t       
  264.           COLOR 3,0
  265.           LOCATE 20,1
  266.           PRINT "    Das waren ";Fehler;" Fehler!"
  267.           PRINT
  268.           PRINT "    't'            für Tastaturhilfe"
  269.           PRINT "    'e'            für Exit"
  270.           PRINT "    'Leertaste'    für Fortsetzung"
  271.           COLOR 1,0
  272.         GOSUB Taste
  273.         CLS
  274.      NEXT a
  275.        LOCATE 15,20
  276.        PRINT"Diese Lektion haben Sie geschafft !!"
  277.          FOR t = 1 TO 2000
  278.          NEXT t
  279.        CLS
  280.        CLOSE 3
  281.    RETURN
  282.    
  283.   
  284. Taste:
  285.   ex$=INKEY$
  286.     IF ex$ = "" THEN Taste
  287.     IF ex$ = "t" THEN GOSUB Tastaturhilfe
  288.     IF ex$ = "e" THEN GOTO Rueckkehr
  289.   RETURN
  290.  
  291. Rueckkehr:
  292.    CLOSE 3
  293.    GOTO Start  
  294.